home *** CD-ROM | disk | FTP | other *** search
/ 8bitfiles.net/archives / archives.tar / archives / compuserve-file-archive / 17 Arcade _ Action Games / POKR64.BIN (.txt) < prev    next >
Encoding:
Commodore BASIC  |  2019-04-13  |  12.4 KB  |  462 lines
  1. 1 DIMIN(11),NM$(11),SC(11),SC$(11):POKE53272,21:POKE650,128
  2. 2 GOSUB20000
  3. 3 POKE53280,11:POKE53281,1
  4. 4 READIN(1),IN(2),IN(3),IN(4),IN(6),IN(7),IN(9),IN(10),IN(11)
  5. 5 NC=10
  6. 8 HG=0
  7. 9 IFH$="D"THEN19
  8. 10 PRINT"[147]"
  9. 12 GOTO70
  10. 70 GOSUB10000
  11. 71 IFCR=0THEN51000
  12. 72 GOSUB100
  13. 73 A$=" ":D$=""
  14. 74 IFHG<CRTHENHG=CR
  15. 75 Z$="":BT=B1
  16. 76 GOSUB3000
  17. 77 PRINT"YOUR BET"
  18. 78 IFBT>CRTHENBT=CR
  19. 80 PRINT"$       "
  20. 81 PRINT"$ ";BT
  21. 82 GETB$:IFB$="0"ORB$=" "THENB1=BT:GOTO3100
  22. 83 IFB$<>CHR$(13)THEN82
  23. 84 BT=1:GOSUB20300
  24. 85 PRINT"$       [157][157][157][157][157][157]";BT
  25. 86 GETB$:IFB$="0"ORB$=" "THENB1=BT:GOTO3100
  26. 87 IFB$<>CHR$(13)THEN86
  27. 88 BT=BT+1:IFBT>CRTHENBT=CR:B1=BT:GOTO3100
  28. 89 GOSUB20300
  29. 90 PRINT"$       [157][157][157][157][157][157]";BT
  30. 92 GOTO86
  31. 100 REM SHUFFLE CARDS
  32. 105 FORI=1TONC
  33. 110 CN(I)=INT(52*RND(1))
  34. 111 IFI=1THEN120
  35. 112 FORX=1TOI-1
  36. 113 IFCN(X)=CN(I)THEN110
  37. 114 NEXTX
  38. 120 C%(I)=(CN(I)/4)+2
  39. 130 S(I)=CN(I)+1
  40. 140 C1(I)=S(I)-4
  41. 150 IFS(I)=<4THEN200
  42. 160 S(I)=C1(I)
  43. 170 GOTO140
  44. 200 NEXTI
  45. 205 RETURN
  46. 2000 PRINT"PLAYER 1":RETURN
  47. 2010 PRINT"PLAYER 2":RETURN
  48. 2020 PRINT"PLAYER 3":RETURN
  49. 2030 PRINT"PLAYER 4":RETURN
  50. 3000 PRINT"[147]":REM SET UP
  51. 3010 PRINT"[144][213][195][195][195][195][195][201] [213][195][195][195][195][195][201][160][213][195][195][195][195][195][201][160][213][195][195][195][195][195][201][160][213][195][195][195][195][195][201]"
  52. 3015 FORI=1TO3
  53. 3020 PRINT"[194][218][160][218][160][218][144][194][160][194][218] [218] [218][144][194][160][194][218] [218] [218][144][194][160][194][218][160][218][160][218][144][194][160][194][218] [218] [218][144][194]"
  54. 3021 PRINT"[194][160][218][160][218][160][144][194][160][194][160][218][160][218][160][144][194][160][194][160][218][160][218][160][144][194][160][194][160][218][160][218][160][144][194][160][194][160][218][160][218][144][160][194]"
  55. 3022 NEXTI
  56. 3023 PRINT"[194][218][160][218][160][218][144][194][160][194][218] [218] [218][144][194][160][194][218] [218] [218][144][194][160][194][218][160][218][160][218][144][194][160][194][218] [218] [218][144][194]"
  57. 3024 PRINT"[202][195][195][195][195][195][203][160][202][195][195][195][195][195][203][160][202][195][195][195][195][195][203][160][202][195][195][195][195][195][203][160][202][195][195][195][195][195][203]"
  58. 3025 IFD$="N"THEN3070
  59. 3030 PRINT"                                       "
  60. 3050 PRINT"[158]           [175][175]      [175][175]              [175][175]"
  61. 3060 PRINT"   [167]       [175][186]      [175][186]      [206][180]     [167][175][175]"
  62. 3063 PRINT"   [167]       [204][175]      [175][186]      [183][180]      [175][186]"
  63. 3065 PRINT"                                       "
  64. 3070 PRINT"PLAYER 1        PLAYER 2"
  65. 3080 PRINT"   $                $         "
  66. 3081 PRINT"PLAYER 3        PLAYER 4"
  67. 3082 PRINT"   $                $         "
  68. 3085 PRINT"[157]     [157][157][157][157][157]"CR(1):PRINT"[157]     [157][157][157][157][157]"CR(2)
  69. 3089 PRINT"[157]     [157][157][157][157][157]"CR(3):PRINT"[157]     [157][157][157][157][157]"CR(4)
  70. 3090 ONPTGOSUB2000,2010,2020,2030
  71. 3091 IFD$="N"THENPRINT"":RETURN
  72. 3098 IFA$=" "THENRETURN
  73. 3099 GETA$:IFA$=""THEN3099
  74. 3100 REM PRINT CARDS
  75. 3101 FORI=1TO5:T=I
  76. 3102 GOSUB 4000:REM SUIT
  77. 3103 S=T*8-8
  78. 3104 PRINT""TAB(S+1);:FORX=1TO7:PRINT"     [157][157][157][157][157]";:NEXTX
  79. 3105 GOTO5000
  80. 3106 GOTO4100
  81. 3107 IFD$="Y"THENRETURN
  82. 3108 NEXTI
  83. 3109 GOTO6000
  84. 3110 PRINT"";TAB(S);"";A$(N);"[145][145][145][157][157][157]AA"
  85. 3119 RETURN
  86. 3120 PRINT"";TAB(S);"";A$(N);"[157]";A$(N)
  87. 3129 RETURN
  88. 3130 PRINT"";TAB(S);"";A$(N);"[157]";A$(N);"[157]";A$(N)
  89. 3139 RETURN
  90. 3140 PRINT"";TAB(S);"";A$(N);"";A$(N);"[157]";A$(N);"[157][157][157]";A$(N)
  91. 3149 RETURN
  92. 3150 PRINT"";TAB(S);"";A$(N);"";A$(N);"[157]";A$(N);"[157][157][157]";A$(N);
  93. 3152 PRINT"[145][145]";A$(N)
  94. 3159 RETURN
  95. 3160 PRINT"";TAB(S);"";A$(N);"";A$(N);"[157]";A$(N);"[157][157][157]";A$(N);
  96. 3162 PRINT"[145][145][157]";A$(N);"";A$(N)
  97. 3169 RETURN
  98. 3170 PRINT"";TAB(S);"";A$(N);"";A$(N);"[157]";A$(N);"[157][157][157]";A$(N);
  99. 3172 PRINT"[145][145][157]";A$(N);"";A$(N);"[157][157]";A$(N)
  100. 3179 RETURN
  101. 3180 PRINT"";TAB(S);"";A$(N);"";A$(N);"[157]";A$(N);"[157][157][157]";A$(N);
  102. 3182 PRINT"[145][145][157]";A$(N);"";A$(N);"[157][157]";A$(N);"[145][145][157]";A$(N)
  103. 3189 RETURN
  104. 3190 PRINT"";TAB(S);"";A$(N);""A$(N);"[157][157][157]"A$(N)""A$(N)"[157][157]"A$(N);
  105. 3192 PRINT"[157][157]"A$(N)""A$(N)"[157][157][157]"A$(N)""A$(N)
  106. 3199 RETURN
  107. 3200 PRINT"";TAB(S);"";A$(N)""A$(N)"[157][157][157]"A$(N);A$(N);A$(N);"[157][157][157]";
  108. 3202 PRINTA$(N);A$(N);A$(N);"[157][157][157]"A$(N);"";A$(N)
  109. 3209 RETURN
  110. 3210 PRINT"";TAB(S);"[144]J"A$(N)""A$(N)"[157][157]"A$(N)"[145][157][157]"A$(N);
  111. 3212 PRINT"[144]J"
  112. 3219 RETURN
  113. 3220 PRINT"";TAB(S);"[144]Q"A$(N)""A$(N)"[157][157]"A$(N)"[145][157][157]"A$(N);
  114. 3222 PRINT"[144]Q"
  115. 3229 RETURN
  116. 3230 PRINT"";TAB(S);"[144]K"A$(N)""A$(N)"[157][157]"A$(N)"[145][157][157]"A$(N);
  117. 3232 PRINT"[144]K"
  118. 3239 RETURN
  119. 4000 IFS(I)=1THENA$(I)="[211]"
  120. 4005 IFS(I)=2THENA$(I)="[144][193]"
  121. 4010 IFS(I)=3THENA$(I)="[144][216]"
  122. 4015 IFS(I)=4THENA$(I)="[218]"
  123. 4016 N=I
  124. 4017 C%(DC(F))=C%(I)
  125. 4018 S(DC(F))=S(I)
  126. 4020 RETURN
  127. 4100 A$=STR$(C%(N)):PRINT"[144]"
  128. 4110 IFC%(N)<10THENPRINT""TAB(S+1);RIGHT$(A$,1);""A$
  129. 4120 IFC%(N)=10THENPRINT""TAB(S+1);RIGHT$(A$,2);""A$
  130. 4130 GOTO3107
  131. 5000 C=C%(I)-1
  132. 5010 ONCGOSUB3120,3130,3140,3150,3160,3170,3180,3190,3200,3210,3220,3230,3110
  133. 5015 GOSUB 20500
  134. 5020 GOTO3106
  135. 6000 PRINT"................DISCARD................"
  136. 6001 B=0
  137. 6010 GETA$:IFA$=""THEN6010
  138. 6011 IFA$="E"THEN51000
  139. 6014 IFA$="+"ORA$="="THEN6030
  140. 6015 IFASC(A$)<49ORASC(A$)>53THEN6010
  141. 6016 B=B+1
  142. 6017 DC(B)=VAL(A$)
  143. 6018 GOSUB20200
  144. 6019 FORZ=1TOB
  145. 6020 IFDC(B)=DC(Z)ANDZ<>BTHENDC(B)=0:B=B-1:GOTO6010
  146. 6021 NEXTZ
  147. 6022 S=DC(B)*8-8
  148. 6023 PRINT""TAB(S+1);:FORX=1TO7:PRINT"[218][218][218][218][218][157][157][157][157][157]";:NEXTX
  149. 6024 DC(B)=VAL(A$)
  150. 6025 GOTO6010
  151. 6030 D$="Y"
  152. 6035 G=6
  153. 6037 FORF=1TOB
  154. 6040 IFDC(F)=1THENT=1:I=G:G=G+1:GOSUB3102:NEXTF
  155. 6050 IFDC(F)=2THENT=2:I=G:G=G+1:GOSUB3102:NEXTF
  156. 6060 IFDC(F)=3THENT=3:I=G:G=G+1:GOSUB3102:NEXTF
  157. 6070 IFDC(F)=4THENT=4:I=G:G=G+1:GOSUB3102:NEXTF
  158. 6080 IFDC(F)=5THENT=5:I=G:G=G+1:GOSUB3102:NEXTF
  159. 6100 REM CMPHAND
  160. 6101 D$=""
  161. 6102 FORI=1TO5:DC(I)=0:NEXTI
  162. 6105 X=1:MT=0:PR=0
  163. 6110 FORI=1TO4:X=X+1
  164. 6120 FORJ=XTO5
  165. 6130 IFC%(I)=C%(J)THENMT=MT+1:PR=I
  166. 6140 NEXTJ:NEXTI
  167. 6150 IFMT=0THEN6200
  168. 6160 PRINT"                                       [145]"
  169. 6170 IFMT=1THENPRINT"                 PAIR"
  170. 6172 IFMT=2THENPRINT"               TWO PAIRS"
  171. 6174 IFMT=3THENPRINT"           THREE OF A KIND"
  172. 6176 IFMT=4THENPRINT"               FULL HOUSE"
  173. 6178 IFMT=6THENPRINT"             FOUR OF A KIND"
  174. 6180 IFMT=7THENPRINT"                STRAIGHT"
  175. 6182 IFMT=9THENPRINT"              ROYAL FLUSH"
  176. 6184 IFMT=10THENPRINT"                 FLUSH"
  177. 6186 IFMT=11THENPRINT"             STRAIGHT FLUSH"
  178. 6190 I=0
  179. 6195 GOTO6500
  180. 6200 C=0:MS=0
  181. 6205 FORI=1TO5
  182. 6220 IFC%(I)>C%(C)THENC=I
  183. 6240 NEXTI
  184. 6250 FORI=1TO5
  185. 6260 IFC%(I)=<C%(C)ANDC%(I)=>C%(C)-4THENMS=MS+1
  186. 6270 NEXTI
  187. 6280 IFMS<>5THEN6300
  188. 6290 IFC%(C)=14THENMS=6
  189. 6300 SM=0
  190. 6310 FORI=1TO5:IFS(1)=S(I)THENSM=SM+1:NEXTI
  191. 6320 IFMS=5ANDSM=5THENMS=9
  192. 6330 IFMS=6ANDSM=5THENMS=7
  193. 6340 IFMS=6THENMS=5
  194. 6350 IFSM=5ANDMS<5THENMS=8
  195. 6355 IFMS<5THENMS=-2
  196. 6360 MT=MS+2
  197. 6370 GOTO6160
  198. 6500 W=1:BT%=BT*IN(MT):BT=BT%
  199. 6501 A$=" "
  200. 6502 IFMT=0THENCR=CR-B1:GOSUB41000:GOTO70
  201. 6503 IFMT=1ANDC%(PR)>10THENGOSUB40000:GOTO70
  202. 6504 IFMT=1THENCR=CR-B1:GOSUB41000:GOTO70
  203. 6505 GOSUB40000
  204. 6508 IFI=0THENNC=5:GOSUB100
  205. 6509 NC=10
  206. 6510 PRINT"$ ";BT
  207. 6511 D$="N"
  208. 6520 GOSUB 3010
  209. 6530 PRINT""
  210. 6551 PRINT"[158]                   [175][175]              [175][175]"
  211. 6552 PRINT"   [167]               [175][186]             [167][175][175]"
  212. 6553 PRINT"   [167]               [175][186]              [175][186]"
  213. 6560 PRINT"[145][145][145][145][145][144]  KEEP $        HALF $        DOUBLE $"
  214. 6570 GETA$:IFA$=""THEN6570
  215. 6580 IFA$="1"THEN7000
  216. 6590 IFA$="3"ORA$="5"THEN6600
  217. 6595 GOTO6570
  218. 6600 IFA$="3"ANDBT<2THENA$="5"
  219. 6601 IFA$="3"THENBT%=BT/2:BT=BT%:IFBT%*2<>BT*2THENBT=BT+1
  220. 6602 IFA$="3"THENGOSUB42000
  221. 6603 IFA$="3"THENG$="N"
  222. 6605 PRINT"$       "
  223. 6606 PRINT"$ ";BT
  224. 6620 GOSUB3010
  225. 6630 PRINT"      "
  226. 6631 PRINT"      "
  227. 6632 PRINT"      "
  228. 6635 PRINT"[145][145][145][145][145]   LOW                             HI  "
  229. 6637 PRINT"                                       "
  230. 6640 Z$="Y":IFW<1THENGOSUB100
  231. 6650 D$="Y":I=W:T=W
  232. 6651 GOSUB3102
  233. 6655 W=W+1
  234. 6662 T=W
  235. 6665 I=W
  236. 6680 GETC$:IFC$<>"1"ANDC$<>"5"THEN6680
  237. 6710 GOSUB 3102
  238. 6715 I=W
  239. 6720 IFC%(I)>C%(I-1)ANDC$="1"THEN6900
  240. 6721 IFC%(I)<C%(I-1)ANDC$="5"THEN6900
  241. 6722 IFC%(I)=C%(I-1)THEN6900
  242. 6725 REMGOSUB40000
  243. 6730 BT=BT*2
  244. 6735 IFI<>5THEN6501
  245. 6740 GOTO7000
  246. 6900 GOSUB 41000
  247. 6910 IFG$<>"N"THENCR=CR-B1
  248. 6911 G$=""
  249. 6920 GOTO70
  250. 7000 REM BETTING OVER
  251. 7010 GOSUB 42000
  252. 7020 GOTO70
  253. 10000 CR(PT)=CR
  254. 10005 IFHG(PT)<CR(PT)THENHG(PT)=CR(PT)
  255. 10010 BT(PT)=BT
  256. 10020 B1(PT)=B1
  257. 10025 IFCR(PT)<1THEN11000
  258. 10030 PT=PT+1
  259. 10040 IFPT>RTTHENPT=1
  260. 10041 CK=CK+1:IFCR(PT)=<0ANDCK<>5THEN10030
  261. 10042 IFCK<>5THENCK=0
  262. 10043 IFCK=5THEN51000
  263. 10050 CR=CR(PT)
  264. 10060 BT=BT(PT)
  265. 10070 B1=B1(PT)
  266. 10075 FORHG=1TORT:IFCR(HG)>9999THENCR(HG)=CR(HG)-9999
  267. 10080 RETURN
  268. 11000 PRINT"[147]  PLAYER"PT",":PRINT"     GAME OVER"
  269. 11010 FORWT=1TO500:NEXTWT
  270. 11020 GOTO10030
  271. 20000 POKE53280,0:POKE53281,0
  272. 20001 PRINT"[147]       THE"
  273. 20002 PRINT"        POKER"
  274. 20003 PRINT"         MACHINE"
  275. 20004 PRINT"64 VERSION            BY TRAVIS GEORGE"
  276. 20010 OPEN1,8,0,"HIGH SCORERS"
  277. 20030 FORI=1TO10:INPUT#1,NM$(I):INPUT#1,SC(I)
  278. 20033 NEXTI
  279. 20034 CLOSE1
  280. 20041 FORL=54272TO54296:POKEL,0:NEXTL
  281. 20042 POKE54277,9:POKE54278,5:POKE54296,15
  282. 20045 PRINT"          INSTRUCTIONS ?  (Y/N)        "
  283. 20046 GETA$:IFA$="Y"THEN 55000
  284. 20047 IFA$<>"N"THEN20046
  285. 20050 PRINT"        HOW MANY PLAYERS  (1-4)        "
  286. 20060 GETA$:IFA$<>"1"ANDA$<>"2"ANDA$<>"3"ANDA$<>"4"THEN20060
  287. 20070 GOSUB20200
  288. 20080 RT=VAL(A$):PT=0:CC=25
  289. 20090 FORI=1TORT:CR(I)=15:LV(I)=1:BT(I)=1:B1(I)=1:NEXTI
  290. 20100 CR=CR(1):BT=BT(1):B1=B1(1)
  291. 20110 RETURN
  292. 20200 POKE54273,18:POKE54272,0
  293. 20205 POKE54277,9:POKE54278,5:POKE54278,4
  294. 20210 POKE54276,33:FORWT=1TO40:NEXTWT:POKE54276,32
  295. 20220 RETURN
  296. 20300 POKE54273,22
  297. 20305 POKE54277,9:POKE54278,10:POKE54278,1
  298. 20310 POKE54276,33:FORWT=1TO15:NEXTWT:POKE54276,32
  299. 20320 RETURN
  300. 20400 POKE54273,20:POKE54272,200
  301. 20405 POKE54277,9:POKE54278,10
  302. 20410 POKE54276,33:FORWT=1TO15:NEXTWT:POKE54276,32
  303. 20420 RETURN
  304. 20500 POKE54273,15
  305. 20505 POKE54277,9:POKE54278,13:POKE54278,1
  306. 20510 POKE54276,33:FORWT=1TO30:NEXTWT:POKE54276,32
  307. 20520 RETURN
  308. 30000 OPEN1,8,1,"@0:HIGH SCORERS"
  309. 30010 FORI=1TO10:PRINT#1,"C64":PRINT#1,100
  310. 30020 NEXTI
  311. 30030 CLOSE1
  312. 30050 RUN
  313. 30100 PRINT"[147]"
  314. 30110 PRINT"GAME OVER"
  315. 30120 GETA$:IFA$=""THEN30120
  316. 30130 RUN
  317. 40000 POKE54277,9:POKE54278,2
  318. 40001 POKE54273,36:POKE54272,250
  319. 40002 FORT=1TO7:POKE54276,33:FORWT=1TO55:NEXTWT:POKE54276,32
  320. 40003 FORWT=1TO2:NEXTWT:NEXTT
  321. 40010 RETURN
  322. 41000 POKE54273,4:POKE54272,200:POKE54277,10:POKE54278,160
  323. 41001 POKE54276,33:FORWT=1TO400:NEXTWT:POKE54276,32
  324. 41005 FORWT=1TO500:NEXTWT
  325. 41006 PRINT"[147]"
  326. 41010 RETURN
  327. 42000 REM
  328. 42010 B2=BT
  329. 42020 FORT=1TOBT
  330. 42030 B2=B2-1
  331. 42032 CR=CR+1
  332. 42033 PRINT"$       ";"[157][157][157][157][157][157]"B2
  333. 42040 ONPTGOSUB50000,50100,50200,50300
  334. 42041 GOSUB20400
  335. 42045 NEXTT
  336. 42046 FORWT=1TO500:NEXTWT
  337. 42048 CR(PT)=CR
  338. 42050 RETURN
  339. 50000 PRINT"[157]"CR
  340. 50010 RETURN
  341. 50100 PRINT"[157]"CR
  342. 50110 RETURN
  343. 50200 PRINT"[157]"CR
  344. 50210 RETURN
  345. 50300 PRINT"[157]"CR
  346. 50310 RETURN
  347. 51000 PRINT"[205][205][205][205][205][205][205][205][205][144]  G A M E   O V E R  [206][206][206][206][206][206][206][206][206]"
  348. 51005 FORWT=1TO1000:NEXTWT
  349. 51010 FORK=1TORT:IFHG(K)>SC(10)THEN52000
  350. 51011 NEXTK
  351. 51020 PRINT"[147]                                    "
  352. 51021 PRINT"         C A R D   S H A R K S       "
  353. 51022 PRINT"                                      "
  354. 51030 FORT=1TO17
  355. 51040 PRINT"   [144]                                    "
  356. 51050 NEXTT
  357. 51060 PRINT"                                      "
  358. 51070 PRINT"                                     "
  359. 51080 PRINT"                                    "
  360. 51100 PRINT""
  361. 51120 PRINT"[144]1)[157][157]2)[157][157]3)[157][157]4)[157][157]5)[157][157]6)[157][157]7)[157][157]8)[157][157]9)[157][157][157]10)"
  362. 51130 PRINT""
  363. 51131 FORI=1TO10
  364. 51132 IFSC(I)<1000THENSC$(I)=RIGHT$(STR$(SC(I)),3)
  365. 51133 IFSC(I)<10000THENSC$(I)=RIGHT$(STR$(SC(I)),4)
  366. 51134 IFSC(I)<100000THENSC$(I)=RIGHT$(STR$(SC(I)),5)
  367. 51135 IFSC(I)<1000000THENSC$(I)=RIGHT$(STR$(SC(I)),6)
  368. 51136 NEXTI
  369. 51140 FORI=1TO10:PRINT"";NM$(I);"  -  ";SC$(I):NEXTI
  370. 51150 IFH$="D"THENGOSUB53000
  371. 51160 GETA$:IFA$=""THEN51160
  372. 51170 RUN
  373. 52000 REM ADD A HIGH SCORE
  374. 52001 HG=HG(K)
  375. 52005 H$="D"
  376. 52010 FORI=10TO1STEP-1
  377. 52020 IFHG<SC(I)THEN52100
  378. 52030 NEXTI
  379. 52100 PRINT"[147]"
  380. 52105 PRINT"   PLAYER"K","
  381. 52110 PRINT" YOUR RANKING IS";I+1
  382. 52120 PRINT" WHAT ARE YOUR INITIALS ";:INPUTNM$
  383. 52130 IFLEN(NM$)>3THENPRINT" 3 LETTERS ONLY, PLEASE.":GOTO52120
  384. 52140 FORJ=10TOI+1STEP-1
  385. 52150 NM$(J+1)=NM$(J):SC(J+1)=SC(J)
  386. 52160 NEXTJ
  387. 52170 NM$(I+1)=NM$:SC(I+1)=HG
  388. 52180 GOTO51020
  389. 53000 OPEN1,8,1,"@0:HIGH SCORERS"
  390. 53010 FORI=1TO10:PRINT#1,NM$(I):PRINT#1,SC(I):NEXTI
  391. 53015 H$=""
  392. 53020 CLOSE1
  393. 53030 GOTO51160
  394. 54000 DATA1,1.5,2,3,5,3.5,15,4,10
  395. 55000 POKE53272,23
  396. 55010 PRINT"[147]            [212][200][197][160][208][207][203][197][210][160][205][193][195][200][201][206][197]"
  397. 55011 PRINT"            -----------------"
  398. 55012 PRINT"    [212]HE [208]OKER [205]ACHINE ADDS A TWIST TO"
  399. 55013 PRINT"[196]RAW [208]OKER. [194]UT SINCE IT'S YOU AGAINST"
  400. 55014 PRINT"THE COMPUTER YOU MUST GET ATLEAST A PAIR";
  401. 55040 PRINT"OF [202]ACKS TO BREAK EVEN ON A BET. [194]UT"
  402. 55050 PRINT"THE FUN BEGINS WHEN YOU GET TWO PAIR OR"
  403. 55060 PRINT"BETTER. [201]N THIS CASE, YOU HAVE A CHANCE"
  404. 55070 PRINT"OF DOUBLING YOUR MONEY."
  405. 55080 PRINT"    [201]T ALTERNATES BETWEEN PLAYERS (UP"
  406. 55090 PRINT"TO FOUR) AND IS OVER WHEN EVERYONE RUNS"
  407. 55100 PRINT"OUT OF MONEY."
  408. 55110 PRINT"        [200]IT ANY KEY TO CONTINUE"
  409. 55120 GETA$:IFA$=""THEN55120
  410. 55200 PRINT"[147]            [212][200][197][160][208][207][203][197][210][160][205][193][195][200][201][206][197]"
  411. 55201 PRINT"            -----------------"
  412. 55210 PRINT"    [212]O BEGIN, SELECT THE NUMBER OF"
  413. 55220 PRINT"PLAYERS THAT WILL CHALLENGE THE MACHINE.";
  414. 55230 PRINT"    [212]HE PLAYER UP WILL BE PRINTED IN"
  415. 55240 PRINT"REVERSE PRINT AT THE TOP OF THE SCREEN."
  416. 55250 PRINT"[215]HEN HE IS READY, HE SHOULD PLACE HIS"
  417. 55260 PRINT"BET USING THE RETURN KEY. [215]HEN HE IS"
  418. 55270 PRINT"READY TO HAVE HIS CARDS DEALT TO HIM, HE";
  419. 55280 PRINT"SHOULD PRESS THE SPACE BAR. [193]FTER THE"
  420. 55290 PRINT"CARDS ARE DEALT, HIT THE COORESPONDING"
  421. 55300 PRINT"NUMBER TO DISCARD (1-5). [193]FTER"
  422. 55310 PRINT"DISCARDING, HIT THE '=' TO RECEIVE THE"
  423. 55320 PRINT"REPLACEMENTS. [212]HE COMPUTER WILL TAKE"
  424. 55330 PRINT"CARE OF THINGS FROM THERE."
  425. 55340 PRINT"        [200]IT ANY KEY TO CONTINUE"
  426. 55350 GETA$:IFA$=""THEN55350
  427. 55360 PRINT"[147]"
  428. 55400 PRINT"[147]            [212][200][197][160][208][207][203][197][210][160][205][193][195][200][201][206][197]"
  429. 55401 PRINT"            -----------------"
  430. 55410 PRINT"    [201]F THE PLAYER ENDS UP WITH TWO PAIR"
  431. 55420 PRINT"OR BETTER, HE QUALIFIES FOR THE DOUBLE-"
  432. 55430 PRINT"UP GAME."
  433. 55440 PRINT"    [201]N THIS PART, THE PLAYER IS FIRST"
  434. 55450 PRINT"ASKED IF HE WANTS TO GAMBLE ALL OF THE"
  435. 55460 PRINT"WINNINGS FROM THE PREVIOUS HAND, HALF"
  436. 55470 PRINT"THE WINNINGS, OR JUST KEEP ALL OF THE"
  437. 55480 PRINT"WINNINGS AND NOT PLAY THE DOUBLE-UP."
  438. 55490 PRINT"    [201]F HE DECIDES TO GAMBLE, HE WILL"
  439. 55500 PRINT"BE GIVEN ONE CARD FACE-UP. [200]E MUST THEN"
  440. 55510 PRINT"DECIDE IF THE NEXT CARD WILL BE HIGHER"
  441. 55520 PRINT"OR LOWER. [201]F HE'S RIGHT, HE GETS THE"
  442. 55530 PRINT"OPPORTUNITY TO PLAY AGAIN (UP TO FIVE"
  443. 55540 PRINT"TIMES)."
  444. 55550 PRINT"        [200]IT ANY KEY TO CONTINUE"
  445. 55560 GETA$:IFA$=""THEN55560
  446. 55600 PRINT"[147]    [211]HOULD YOU HAVE ANY QUESTIONS,"
  447. 55650 PRINT"COMMENTS, OR EVEN SUGGESTIONS ON"
  448. 55660 PRINT"IMPROVING THIS GAME OR AN IDEA ON A"
  449. 55670 PRINT"POKER GAME THAT YOU WOULD LIKE TO SEE IN";
  450. 55680 PRINT"THIS FORUM, CONTACT ME IN ONE OF TWO"
  451. 55690 PRINT"WAYS:"
  452. 55700 PRINT"    [203]. [212]RAVIS [199]EORGE   -[211][200][193][210][203][211]"
  453. 55710 PRINT"    [195]OMPU[211]ERVE [201].[196].  73247,1704"
  454. 55720 PRINT"                     [163][163][163][163][163][163][163][163][163][163]"
  455. 55730 PRINT"    1856 [193]LFRESCO [208]LACE"
  456. 55740 PRINT"    [204]OUISVILLE, [203][217]  40205"
  457. 55750 PRINT"[197]NJOY THE [208]OKER [205]ACHINE !!!"
  458. 55760 PRINT"          [200]IT ANY KEY TO BEGIN"
  459. 55770 GETA$:IFA$=""THEN55770
  460. 55775 POKE53272,21
  461. 55780 GOTO 20000
  462.